使用VBA和Python xlwings可以通过编程动态绘制Excel图表，本节介绍用Python xlwings包创建Excel图表的几种方法。可以用xlwings包提供的方法直接创建，或者用API方式创建图表工作表，也可以用ChartObjects对象的Add方法，或者用Shapes对象的AddChart2方法进行创建。
Excel对象模型中，用Chart对象表示图表，Charts对象作为集合对所有图表进行保存和管理。通过编程创建图表的过程，就是创建Chart对象并利用它本身及与之相关的一系列对象的属性和方法进行编程的过程。[大谦Excel，dqexcel点com]
用ChartObjects对象创建图表
利用xlwings包提供的ChartObjects对象的Add方法可以创建图表。该方法的语法格式为：
sht.ChartObjects.Add Left, Top, Width, Height其中，sht表示工作表对象，有4个参数：
• Left – 表示图表左侧的位置，单位为点，默认值为0。
• Top - 表示图表顶端的位置，单位为点，默认值为0。
• Width - 表示图表的宽度，单位为点，默认值为355。
• Height – 表示图表的高度，单位位点，默认值为211。
该方法返回一个ChartObject对象，引用该对象的Chart属性返回一个Chart对象。
下面根据给定数据，用ChartObjects对象的Add方法创建图表。完整代码见：Samples->ch03图表基础->01 创建图表：ChartObjects对象->py.py。
Sub CreateCharts()
'创建嵌入式图表
Dim cht As ChartObject
Set cht = ActiveSheet.ChartObjects.Add(50, 200, 355, 211)
With cht
With .Chart
.SetSourceData Source:=Sheets("Sheet1").Range("A1:H7"), PlotBy:=xlRows
.ChartType = xlColumnClustered
.SetElement msoElementChartTitleCenteredOverlay
.ChartTitle.Text = "部分省市2011-2016年GDP数据"
End With
End With
End Sub运行代码，在工作表的指定位置绘制复合柱状图如图2-1所示。
图2-1 用ChartObjects对象创建图表
用Shapes对象创建图表
用Shapes对象创建图表，实际上也是在xlwings的API使用方式下实现的。在API使用方式下，使用Shapes对象的AddChart2方法创建图表。该方法的语法格式为：
sht.Shapes.AddChart2 Style,XlChartType,Left,Top,Width,Height,NewLayout其中，sht为指定工作表。一共有7个参数，均可选。
• Style：图表样式，值为-1时表示各图形类型的默认样式。
• xlChartType：图表类型，值为XlChartType枚举类型，表4-1中列出了一部分。
• Left：图表左侧位置，省略时水平居中。
• Top：图表顶端位置，省略时垂直居中。
• Width：图表的宽度，省略时取默认值354。
• Height：图表的高度，省略时取默认值210。
• NewLayout：表示图表布局，如果值为True，则只有复合图形才会显示图例。
该方法返回一个表示图表的Shape对象，引用该对象的Chart属性返回一个Chart对象。
下面利用图2-1所示工作表中的数据绘制复合柱状图。首先选择数据区域，然后用Shapes对象的AddChart2方法绘制。完整代码见：Samples->ch03图表基础-> 03 创建图表：Shapes对象->py.py。
Sub CreateCharts()
'用Shapes创建图表
ActiveSheet.Range("A1").CurrentRegion.Select
ActiveSheet.Shapes.AddChart2 -1, xlColumnClustered, _
30, 150, 300, 200, True
End Sub生成图2-2所示工作表中下方的图形。
图2-2 利用Shapes对象绘复合柱状图
通过逐个添加序列创建图表
图2-2所示的复合柱状图中，相同颜色的柱面构成一个序列，相邻的不同颜色的柱面构成一个分组。所以，图2-2所示复合柱状图中有6个序列6个分组。通过编程创建类似图表时，可以使用逐个添加序列的方式进行创建。
下面结合一个实例进行介绍。本例创建包含2个序列的图表，第1个序列的图表类型为柱状图，第2个序列的图表类型为线形图。完整代码见：Samples->ch03图表基础-> 04 创建图表：添加序列->py.py。
Sub Test()
Dim cht As Chart
ActiveSheet.Range("A2:A7").Select
Set cht = ActiveSheet.Shapes.AddChart2(-1, xlColumnClustered, _
200, 20, 350, 200, True).Chart
Dim ser As Series
Set ser = cht.SeriesCollection.NewSeries
ser.ChartType = xlLine
ser.Values = Range("B2:B7")
cht.HasLegend = True
End Sub运行代码生成图表如图2-4所示。
图2-4 逐个添加序列创建图表
创建图表工作表
在API方式下可以创建图表工作表，图表工作表中图表占据整个工作表。通过Charts集合的Add方法可向集合中添加新的图表工作表，Add方法的语法格式为：
wb.Charts.Add Before,After,Count,Type其中，wb表示指定的工作簿对象。该方法的参数都可省略，各参数的含义如下：
• Before - 指定工作表对象，新建的工作表将置于此工作表之前。
• After - 指定工作表对象，新建的工作表将置于此工作表之后。
• Count - 要添加的工作表个数。默认值为1。
• Type - 指定要添加的图表类型。
如果Before和After两者都省略，新建的图表工作表将插入到活动工作表之前。该方法返回一个Chart对象。
下面使用图2-1中相同的数据创建图表工作表，图表类型为复合柱状图。完整代码见：Samples->ch03图表基础->05 创建图表：图表工作表->py.py。
Sub CreateCharts()
Dim cht As Chart
Set cht = Charts.Add
With cht
.SetSourceData Source:=Sheets("Sheet1").Range("A1:H7"), PlotBy:=xlRows
.ChartType = xlColumnClustered
.HasTitle = True
.ChartTitle.Text = "部分省市2011-2016年GDP数据"
End With
End Sub运行代码生成图2-3所示的图表工作表。代码中，绑定数据的方式使用的是用Select方法选择数据区域，然后用Charts对象的Add方法创建图表工作表。Add方法返回一个Chart对象，用Chart对象的ChartType属性设置图表类型为复合柱状图。注意指定图表类型常数的方式。最后指定图表的标题。
图2-3 创建图表工作表
绑定数据
如3.2.2-3.2.4所述，可用三种方法绑定数据。
第一种方法是使用单元格区域的Select方法选择数据。对于工作表sht，使用类似于下面形式的代码进行绑定：
Range("A1").CurrentRegion.Select或
Range("A1:H7").Select另一种是使用chart(Chart)对象的set_source_data(SetSourceData)方法绑定数据。
在xlwings使用方式下，使用chart对象的set_source_data方法绑定数据。例如，对于工作表sht和图表cht，使用代码类似于下面的形式：
cht.SetSourceData Range("A1").CurrentRange该方法只有一个参数，为一range对象，指定数据的范围。
使用API使用方式时，用Chart对象的SetSourceData方法指定图表设置源数据区域。其语法格式如下：
cht.SetSourceData Source, PlotBy其中，cht为生成的chart对象，有两个参数，含义如下：
• Source - 为一个Range对象，用来指定图表的源数据区域。
• PlotBy - 指定取数据的方式。值为1时表示按列取数据，值为2时表示按行取数据。
对于工作表sht和图表cht，使用代码类似于下面的形式：
cht.SetSourceData Range("A1:H7"), 1第三种绑定数据的方式是通过逐个添加序列方式创建图表时，用序列对象的XValues属性指定横轴数据，用Values属性指定纵轴数据。参见3.2.3小节。